home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / spiele / workbench spiele / krsnake / src / createpath.e < prev    next >
Text File  |  1995-10-25  |  401b  |  20 lines
  1. OPT MODULE
  2.  
  3. MODULE 'dos/dos'
  4.  
  5. EXPORT PROC createPath(name:PTR TO CHAR)
  6.     DEF nd[256]:STRING,tl
  7.     StrCopy(nd,name)
  8.     PutChar(PathPart(nd),0)
  9.     SetStr(nd,StrLen(nd))
  10.     IF nd[StrLen(nd)-1]=":" THEN RETURN
  11.     IF StrLen(nd)
  12.         createPath(nd)
  13.         tl:=Lock(nd,ACCESS_READ)
  14.         IF tl=0 THEN IF (tl:=CreateDir(nd))=0 THEN Raise("MDIR")
  15.         IF tl THEN UnLock(tl)
  16.     ENDIF
  17. ENDPROC
  18.  
  19.  
  20.